(byte-optimize-pure-func): Quote the eval'd value so it's not re-eval'd.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 940b4869f5110906ace22f171b2fef2188e138b9..1cda03ad0d530e3698d929c0ba82e233c85a4ec9 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1135,7 +1135,7 @@ of FORM by signaling the error at compile-time."
          (setq constant nil))
       (setq args (cdr args)))
     (if constant
-       (eval form)
+       (cons 'quote (eval form))
       form)))
 
 ;; Avoid having to write forward-... with a negative arg for speed.